home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / center1g / frmmain.frm (.txt) next >
Encoding:
Visual Basic Form  |  1999-08-12  |  4.4 KB  |  136 lines
  1. VERSION 5.00
  2. Object = "{0E59F1D2-1FBE-11D0-8FF2-00A0D10038BC}#1.0#0"; "MSSCRIPT.OCX"
  3. Begin VB.Form Form1 
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "VBSCRIPT"
  6.    ClientHeight    =   6375
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   5775
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   6375
  14.    ScaleWidth      =   5775
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin VB.CommandButton Command2 
  17.       Caption         =   "Run"
  18.       Height          =   375
  19.       Left            =   4920
  20.       TabIndex        =   3
  21.       Top             =   480
  22.       Width           =   735
  23.    End
  24.    Begin VB.PictureBox usrfrm 
  25.       Height          =   3375
  26.       Left            =   120
  27.       ScaleHeight     =   3315
  28.       ScaleWidth      =   4635
  29.       TabIndex        =   1
  30.       Top             =   480
  31.       Width           =   4695
  32.       Begin VB.CommandButton Command1 
  33.          Caption         =   "B1"
  34.          Height          =   375
  35.          Left            =   1560
  36.          TabIndex        =   2
  37.          Top             =   720
  38.          Width           =   1095
  39.       End
  40.       Begin VB.Label Label5 
  41.          AutoSize        =   -1  'True
  42.          BackStyle       =   0  'Transparent
  43.          Caption         =   "Mostafa Mohamed web page"
  44.          BeginProperty Font 
  45.             Name            =   "MS Sans Serif"
  46.             Size            =   8.25
  47.             Charset         =   0
  48.             Weight          =   400
  49.             Underline       =   -1  'True
  50.             Italic          =   0   'False
  51.             Strikethrough   =   0   'False
  52.          EndProperty
  53.          ForeColor       =   &H00FF0000&
  54.          Height          =   195
  55.          Left            =   2400
  56.          MouseIcon       =   "frmmain.frx":0000
  57.          MousePointer    =   99  'Custom
  58.          TabIndex        =   8
  59.          Top             =   3000
  60.          Width           =   2070
  61.       End
  62.       Begin VB.Label Label2 
  63.          BackStyle       =   0  'Transparent
  64.          Caption         =   "write the code on B1_CLICK on the textbox and click run button and the click this button to execute the code"
  65.          Height          =   615
  66.          Left            =   1080
  67.          TabIndex        =   5
  68.          Top             =   120
  69.          Width           =   2055
  70.       End
  71.    End
  72.    Begin VB.TextBox Text1 
  73.       Height          =   2175
  74.       Left            =   0
  75.       MultiLine       =   -1  'True
  76.       ScrollBars      =   3  'Both
  77.       TabIndex        =   0
  78.       Text            =   "frmmain.frx":0152
  79.       Top             =   4200
  80.       Width           =   5775
  81.    End
  82.    Begin MSScriptControlCtl.ScriptControl ScriptControl1 
  83.       Left            =   5040
  84.       Top             =   3120
  85.       _ExtentX        =   1005
  86.       _ExtentY        =   1005
  87.       AllowUI         =   -1  'True
  88.    End
  89.    Begin VB.Label Label4 
  90.       BackStyle       =   0  'Transparent
  91.       Caption         =   "Write your code here"
  92.       Height          =   255
  93.       Left            =   0
  94.       TabIndex        =   7
  95.       Top             =   3960
  96.       Width           =   2535
  97.    End
  98.    Begin VB.Label Label3 
  99.       BackStyle       =   0  'Transparent
  100.       Caption         =   "Will execute sub Main"
  101.       Height          =   495
  102.       Left            =   4560
  103.       TabIndex        =   6
  104.       Top             =   0
  105.       Width           =   1095
  106.    End
  107.    Begin VB.Label Label1 
  108.       BackStyle       =   0  'Transparent
  109.       Caption         =   "This picturebox acts as form1"
  110.       Height          =   255
  111.       Left            =   120
  112.       TabIndex        =   4
  113.       Top             =   240
  114.       Width           =   2895
  115.    End
  116. Attribute VB_Name = "Form1"
  117. Attribute VB_GlobalNameSpace = False
  118. Attribute VB_Creatable = False
  119. Attribute VB_PredeclaredId = True
  120. Attribute VB_Exposed = False
  121. Private Sub Command1_Click()
  122. ScriptControl1.Run "B1_click"
  123. End Sub
  124. Private Sub Command2_Click()
  125. ScriptControl1.AddCode Text1.Text
  126. ScriptControl1.Run "Main"
  127. End Sub
  128. Private Sub Form_Load()
  129. ScriptControl1.AddObject "form1", usrfrm
  130. ScriptControl1.AddObject "b1", Command1
  131. End Sub
  132. Private Sub Label5_Click()
  133. On Error Resume Next
  134. Shell "explorer http://www.geocities.com/ResearchTriangle/Campus/4598/", vbNormalFocus
  135. End Sub
  136.